home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19941031-19941221 / 000070_news@columbia.edu_Mon Nov 7 22:26:13 1994.msg < prev    next >
Internet Message Format  |  2020-01-01  |  2KB
  1. Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA06921
  2.   (5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Mon, 7 Nov 1994 17:26:20 -0500
  3. Received: by apakabar.cc.columbia.edu id AA14343
  4.   (5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Mon, 7 Nov 1994 17:26:19 -0500
  5. Path: news.columbia.edu!usenet
  6. From: fdc@fdc.cc.columbia.edu (Frank da Cruz)
  7. Newsgroups: comp.protocols.kermit.misc
  8. Subject: Re: Will the New MS-DOS Kermit have MINPUT?
  9. Date: 7 Nov 1994 22:26:13 GMT
  10. Organization: Columbia University
  11. Lines: 33
  12. Message-Id: <39m9i5$e00@apakabar.cc.columbia.edu>
  13. References: <39lv9v$2s@vixen.cso.uiuc.edu>
  14. Nntp-Posting-Host: fdc.cc.columbia.edu
  15. Apparently-To: kermit.misc@watsun.cc.columbia.edu
  16.  
  17. In article <39lv9v$2s@vixen.cso.uiuc.edu> adam@symcom.math.uiuc.edu (Adam H.  
  18. Lewenberg) writes:
  19. > 
  20. > Will the New MS-DOS Kermit have the MINPUT command? I would like my 
  21. > scripts to work in both MS-DOS Kermit and C-Kermit, so it would be
  22. > nice if MINPUT was supported n MS-DOS Kermit. Adam Lewenberg
  23. >
  24. It is kind of late in the Beta cycle to consider adding this.  However,
  25. you might be able to make do by defining an MINPUT macro, something like
  26. this (courtesy of James Sturdevant):
  27.  
  28. define minput set alarm \%1,-
  29. :top,-
  30. if alarm end 1,-
  31. input 1 \%2,if success asg mynput 1,if success end 0,-
  32. if not def \%3 goto top,reinp 0 \%3,if succ asg mynput 2,if succ end 0,-
  33. if not def \%4 goto top,reinp 0 \%4,if succ asg mynput 3,if succ end 0,-
  34. if not def \%5 goto top,reinp 0 \%5,if succ asg mynput 4,if succ end 0,-
  35. if not def \%6 goto top,reinp 0 \%6,if succ asg mynput 5,if succ end 0,-
  36. if not def \%7 goto top,reinp 0 \%7,if succ asg mynput 6,if succ end 0,-
  37. if not def \%8 goto top,reinp 0 \%8,if succ asg mynput 7,if succ end 0,-
  38. if not def \%9 goto top,reinp 0 \%9,if succ asg mynput 8,if succ end 0,-
  39. goto top
  40.  
  41. and then use it like this:
  42.  
  43.  
  44.     minput 60 CONNECT ERROR {NO CARRIER} BUSY RING
  45.     if fail errfail {No response from the modem}
  46.     if eq \v(program) C-Kermit asg mynput \v(minput)
  47.     goto CASE_\m(mynput)
  48.  
  49. - Frank